home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / UPPER.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  314b  |  16 lines

  1. ' UPPER.BAS
  2. ' This program demonstrates the UCASE$ function.
  3.  
  4. CONST WRITER$ = "Sir Arthur Conan Doyle"
  5. address$ = "1326 Serpentine Avenue"
  6. burough$ = UCASE$("St. John's Wood")
  7.  
  8. CLS
  9.  
  10. PRINT UCASE$(WRITER$)
  11. PRINT UCASE$(address$) + ", " + burough$
  12. PRINT
  13. PRINT WRITER$
  14. PRINT address$ + ", " + burough$
  15.  
  16.